home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / MacTools / HyperCard BBS / Hyper House / card_8427.txt < prev    next >
Text File  |  1988-05-09  |  3KB  |  157 lines
  1. -- card: 8427 from stack: in
  2. -- bmap block id: 3563
  3. -- flags: 0000
  4. -- background id: 2607
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on initCard
  8.   global onLine
  9.   if onLine then put "Getting new user info..."
  10.   pass initCard
  11. end initCard
  12.  
  13.  
  14.  
  15. -- part 3 (button)
  16. -- low flags: 00
  17. -- high flags: A003
  18. -- rect: left=351 top=269 right=291 bottom=392
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: OK
  27. ----- HyperTalk script -----
  28. on doIt
  29.   global userName,userID,userPass,userClear,userOpt,userMachine,userCity
  30.   global userLast, userTimes, lastUserInfo, onLine, callers
  31.   put card field "password to use" into userPass
  32.   put "low" into userClear
  33.   put empty into userOpt
  34.   put card field "login name" into userName
  35.   put card field "machine you use" into userMachine
  36.   put card field "city you call from" into userCity
  37.   newUser
  38.   if onLine then
  39.     add 1 to callers
  40.     get "Caller " & callers
  41.   else get "Local login"
  42.   put it & ": " & userName & "; on at: " & the time & "; times: " & userTimes+1 & "; from: " & userCity into lastUserInfo
  43.   put lastUserInfo
  44.   loginUser
  45.   timeOut 300,"hangUpWarn,hangUp"
  46.   visual effect iris open fast
  47.   go to card id 10726
  48. end doIt
  49.  
  50.  
  51.  
  52. -- part 13 (field)
  53. -- low flags: 00
  54. -- high flags: 4000
  55. -- rect: left=367 top=164 right=180 bottom=477
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 3
  60. -- text size: 10
  61. -- style flags: 0
  62. -- line height: 13
  63. -- part name: Login name
  64. ----- HyperTalk script -----
  65. -- editable
  66.  
  67.  
  68.  
  69. -- part 8 (field)
  70. -- low flags: 00
  71. -- high flags: 4000
  72. -- rect: left=352 top=192 right=208 bottom=491
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 3
  77. -- text size: 10
  78. -- style flags: 0
  79. -- line height: 13
  80. -- part name: Password to use
  81. ----- HyperTalk script -----
  82. -- editable
  83.  
  84.  
  85.  
  86. -- part 9 (field)
  87. -- low flags: 00
  88. -- high flags: 4000
  89. -- rect: left=348 top=223 right=241 bottom=494
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 3
  94. -- text size: 10
  95. -- style flags: 0
  96. -- line height: 13
  97. -- part name: City you call from
  98. ----- HyperTalk script -----
  99. -- editable
  100.  
  101.  
  102.  
  103. -- part 10 (field)
  104. -- low flags: 00
  105. -- high flags: 4000
  106. -- rect: left=358 top=251 right=269 bottom=485
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 3
  111. -- text size: 10
  112. -- style flags: 0
  113. -- line height: 13
  114. -- part name: Machine you use
  115. ----- HyperTalk script -----
  116. -- editable
  117.  
  118.  
  119.  
  120. -- part 11 (button)
  121. -- low flags: 00
  122. -- high flags: A003
  123. -- rect: left=452 top=269 right=291 bottom=493
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Redo
  132. ----- HyperTalk script -----
  133. on doIt
  134.   openCard
  135. end doIt
  136.  
  137.  
  138.  
  139. -- part 12 (button)
  140. -- low flags: 00
  141. -- high flags: A003
  142. -- rect: left=397 top=281 right=303 bottom=448
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Cancel
  151. ----- HyperTalk script -----
  152. on doIt
  153.   visual effect dissolve fast
  154.   go to card id 6578
  155. end doIt
  156.  
  157.